(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      6936,        182]
NotebookOptionsPosition[      6430,        160]
NotebookOutlinePosition[      6775,        175]
CellTagsIndexPosition[      6732,        172]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "1"}], ";", 
  RowBox[{"b", "=", "0"}], ";", 
  RowBox[{"c", "=", "\[Infinity]"}], ";", 
  RowBox[{"d", "=", "0"}], ";", " ", 
  RowBox[{"kernelSize", "=", "7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{"\[ExponentialE]", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", "b"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", 
          RowBox[{"c", "^", "2"}]}], ")"}]}], ")"}]}]}], "+", "d"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"total", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "kernelSize"}], ",", "kernelSize"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], "/", "total"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "kernelSize"}], ",", "kernelSize"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], "/", "total"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "kernelSize"}], ",", "kernelSize"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5953120158254256`*^9, 3.595312182858175*^9}, {
   3.59531224189851*^9, 3.595312282535712*^9}, {3.5953125041426163`*^9, 
   3.595312511710657*^9}, {3.595312616361664*^9, 3.5953126945817785`*^9}, {
   3.595312725724526*^9, 3.5953127569263134`*^9}, {3.595312809563944*^9, 
   3.595312811035923*^9}, {3.5953137255088296`*^9, 3.5953137444364386`*^9}, {
   3.5953139352342343`*^9, 3.5953140620687428`*^9}, {3.5953232092229114`*^9, 
   3.595323287037678*^9}, {3.5953233657811394`*^9, 3.5953233717961473`*^9}, {
   3.5953234353554926`*^9, 3.5953234513401413`*^9}, {3.5953235109242268`*^9, 
   3.5953235173244886`*^9}, {3.5953235759715614`*^9, 3.595323577587638*^9}, {
   3.595324135919918*^9, 3.595324136006976*^9}, {3.5953243255833197`*^9, 
   3.5953243256613703`*^9}, {3.5953246145318937`*^9, 3.5953246285412273`*^9}, 
   3.59532474481026*^9, {3.5953249112323503`*^9, 3.5953249113444247`*^9}, {
   3.5953249974007597`*^9, 3.5953250045195017`*^9}, {3.5953258768409853`*^9, 
   3.5953258791695356`*^9}}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{{3.595314015999044*^9, 3.595314062370944*^9}, {
   3.595323209660203*^9, 3.5953232873168683`*^9}, {3.595323437176708*^9, 
   3.5953234518194695`*^9}, {3.595323511427563*^9, 3.5953235176537085`*^9}, 
   3.5953241377471375`*^9, 3.5953243267811184`*^9, {3.5953246153744583`*^9, 
   3.5953246298811207`*^9}, 3.5953247452255363`*^9, 3.5953249118237457`*^9, {
   3.595324998171274*^9, 3.5953250049948206`*^9}, 3.5953258807856135`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7VF++c3//9IHBMFgo33GtWAz32IEv9P0Sv2sZ1Jw
vnXUqTWdWyXhfOkTDw03zJCA8x3ucavmNorD+deitDfVBYnB+bMVcqYfNxeF
8y/6LBJLZRWB830UXzPPvCEE53+zC/VkOSAI5wsc3qJxpF8Azt+skH2g7Dkf
nH+BexL3pF08cP65w4u7wuK44Hwtvh87O7U4EP5VNZdNO84K5+v3zo7Jz2eG
80PanXye2zPC+VvnrLgvcOjvfhi/1j+w3SD0J5zPMef8tEWdX+B8f2HDvXdW
vIfzWS3O8uo/eAbnNytoxvhsuQXnXzs+wzbh+kE4f9+K01Vc7AftYfw5Sx1/
FeTehvO/FrbM+tz5DM4/nSf3xYX3A5zfwbwhyWz/Fzi/s3hPgZfCTzj/hOdn
MZ4Hf+H8pbVBehXqjA4w/h1WttK9wcxwvtHBc+2R61nhfK1XIa/aHrHD+Q5u
HyS4Xbng/B/8ntMV6nngfPXOGkvOdXxw/q5Zj4JV2gTg/E3Ln27iWSgI51v6
fS5fcFkIzq/2eXduLoMInN/HeOJssqQonG8QsMboqqcYnL84NN+eP00czr+4
Sf7ephoJOL9/5a1HjKsl4Xy58JJ+yaNScL7xc+V9PUnScD40v8D5APXMB/M=

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{-7, 7}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.595314015999044*^9, 3.595314062370944*^9}, {
   3.595323209660203*^9, 3.5953232873168683`*^9}, {3.595323437176708*^9, 
   3.5953234518194695`*^9}, {3.595323511427563*^9, 3.5953235176537085`*^9}, 
   3.5953241377471375`*^9, 3.5953243267811184`*^9, {3.5953246153744583`*^9, 
   3.5953246298811207`*^9}, 3.5953247452255363`*^9, 3.5953249118237457`*^9, {
   3.595324998171274*^9, 3.5953250049948206`*^9}, 3.5953258808026257`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`", ",", "0.06666666666666667`", ",", 
   "0.06666666666666667`"}], "}"}]], "Output",
 CellChangeTimes->{{3.595314015999044*^9, 3.595314062370944*^9}, {
   3.595323209660203*^9, 3.5953232873168683`*^9}, {3.595323437176708*^9, 
   3.5953234518194695`*^9}, {3.595323511427563*^9, 3.5953235176537085`*^9}, 
   3.5953241377471375`*^9, 3.5953243267811184`*^9, {3.5953246153744583`*^9, 
   3.5953246298811207`*^9}, 3.5953247452255363`*^9, 3.5953249118237457`*^9, {
   3.595324998171274*^9, 3.5953250049948206`*^9}, 3.595325880805626*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"12", "^", "2"}], "+", 
   RowBox[{"5", "^", "2"}]}], "==", 
  RowBox[{"13", "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.5953167792674885`*^9, 3.5953167925063*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.5953167859869585`*^9, 3.5953167930036316`*^9}}]
}, Open  ]]
},
WindowSize->{755, 760},
WindowMargins->{{Automatic, 28}, {62, Automatic}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 2550, 63, 112, "Input"],
Cell[3132, 87, 477, 6, 31, "Output"],
Cell[3612, 95, 1481, 30, 259, "Output"],
Cell[5096, 127, 965, 16, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6098, 148, 212, 6, 31, "Input"],
Cell[6313, 156, 101, 1, 31, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

